home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / biblio / tib / inputs / ams4.ttx < prev    next >
Text File  |  1989-03-28  |  12KB  |  157 lines
  1. %AMS namedate format macros
  2. %no citation flag, author, date in brackets [], title, etc.,
  3. %                                          volume, pages, gov't no., other
  4.  
  5. \Refstd\Rpunct%set general formats for reference list and citations
  6. \def\Titlefont{\sl}\def\Volfont{\bf}\def\Tomefont{\Reffont}%redefine some fonts
  7.    \def\Lcitemark{%mark at left of citation--also sets internal punctuation
  8.       \let\uchyph=1\def\Cfont{\Citefont}%
  9.       \def\Citebreak{\egroup\ [\bgroup\bf}%
  10.       \def\Citecomma{\egroup]; \bgroup\Cfont }(\bgroup\Cfont}%
  11.    \def\Rcitemark{\egroup])}%mark at right of citation
  12.    \def\LAcitemark{%mark at left of alternate citation
  13.       \let\uchyph=1\def\Citebreak{\egroup\ [\bgroup\bf}%
  14.       \def\Cfont{\ACitefont}%
  15.       \def\Citecomma{\egroup], \bgroup\Cfont }\bgroup\Cfont}%
  16.    \def\RAcitemark{\egroup]}%mark at right of alternate citation
  17.    \def\Citehyphen{\egroup--\bgroup\Cfont}%separater for string of citations
  18.    \def\LIcitemark{\egroup}%mark at left of insertion in citation
  19.    \def\RIcitemark{\bgroup\Cfont}%mark at right of insertion in citation
  20.  
  21. \def\journalarticleformat{\Reffont\let\uchyph=1\parindent=1.25pc\def\Comma{}%
  22.                 \sfcode`\.=1000\sfcode`\?=1000\sfcode`\!=1000\sfcode`\:=1000\sfcode`\;=1000\sfcode`\,=1000%\frenchspacing
  23.                 \par\vfil\penalty-200\vfilneg%\filbreak
  24.       \if\Atest\present\bgroup\Authfont\Astr\egroup\def\Comma{\unskip, }\fi%
  25.        \if\Dtest\present\unskip\hskip.16667em[\bgroup\bf\Dstr\ifcat\Ftrail a\Ftrail\fi\egroup]\def\Comma{, }\fi%
  26.         \if\Ttest\present\Comma\bgroup\Titlefont\Tstr\egroup\def\Comma{, }\fi%
  27.          \if\etest\present\if\Ttest\present{}\fi\hskip.16667em(\bgroup\estr\egroup)\def\Comma{\unskip, }\fi%
  28.           \if\Jtest\present\Comma\bgroup\Tomefont\Jstr\/\egroup\def\Comma{, }\fi%
  29.            \if\Vtest\present\if\Jtest\present\hskip.2em\else\Comma\fi\bgroup\Volfont\Vstr\egroup\def\Comma{, }\fi%
  30.             \if\Ptest\present\bgroup, \Pstr\egroup\def\Comma{, }\fi%
  31.              \if\ttest\present\Comma\bgroup\Titlefont\tstr\egroup\def\Comma{, }\fi%
  32.               \if\jtest\present\Comma\bgroup\Tomefont\jstr\/\egroup\def\Comma{, }\fi%
  33.                \if\vtest\present\if\jtest\present\hskip.2em\else\Comma\fi\bgroup\Volfont\vstr\egroup\def\Comma{, }\fi%
  34.                 \if\dtest\present\hskip.16667em(\bgroup\dstr\egroup)\def\Comma{, }\fi%
  35.                  \if\ptest\present\bgroup, \pstr\egroup\def\Comma{, }\fi%
  36.                   \if\Gtest\present{\Comma Gov't ordering no. }\bgroup\Gstr\egroup\def\Comma{, }\fi%
  37.                    \if\Mtest\present\Comma MR \#\bgroup\Mstr\egroup\def\Comma{, }\fi%
  38.                     \if\Otest\present{\Comma\bgroup\Ostr\egroup.}\else{.}\fi%
  39.                      \vskip3ptplus1ptminus1pt}%\smallskip
  40.  
  41. \def\conferencereportformat{\Reffont\let\uchyph=1\parindent=1.25pc\def\Comma{}%
  42.                 \sfcode`\.=1000\sfcode`\?=1000\sfcode`\!=1000\sfcode`\:=1000\sfcode`\;=1000\sfcode`\,=1000%\frenchspacing
  43.                 \par\vfil\penalty-200\vfilneg%\filbreak
  44.       \if\Atest\present\bgroup\Authfont\Astr\egroup\def\Comma{\unskip, }\fi%
  45.        \if\Dtest\present\unskip\hskip.16667em[\bgroup\bf\Dstr\ifcat a\Ftrail\Ftrail\fi\egroup]\def\Comma{, }\fi%
  46.         \if\Ttest\present\Comma\bgroup\Titlefont\Tstr\egroup\def\Comma{, }\fi%
  47.          \if\Jtest\present\Comma\bgroup\Tomefont\Jstr\/\egroup\def\Comma{, }\fi%
  48.           \if\Ctest\present\Comma\bgroup\Cstr\egroup\def\Comma{, }\fi%
  49.            \if\Mtest\present\Comma MR \#\bgroup\Mstr\egroup\def\Comma{, }\fi%
  50.             \if\Otest\present{\Comma\bgroup\Ostr\egroup.}\else{.}\fi%
  51.              \vskip3ptplus1ptminus1pt}%\smallskip
  52.  
  53. \def\bookarticleformat{\Reffont\let\uchyph=1\parindent=1.25pc\def\Comma{}%
  54.                 \sfcode`\.=1000\sfcode`\?=1000\sfcode`\!=1000\sfcode`\:=1000\sfcode`\;=1000\sfcode`\,=1000%\frenchspacing
  55.                 \par\vfil\penalty-200\vfilneg%\filbreak
  56.       \if\Atest\present\bgroup\Authfont\Astr\egroup\def\Comma{\unskip, }\fi%
  57.        \if\Dtest\present\unskip\hskip.16667em[\bgroup\bf\Dstr\ifcat a\Ftrail\Ftrail\fi\egroup]\def\Comma{, }\fi%
  58.         \if\Ttest\present\Comma\bgroup\Titlefont\Tstr\egroup\def\Comma{, }\fi%
  59.          \if\etest\present\if\Ttest\present\fi\hskip.2em(\bgroup\estr\egroup)\def\Comma{\unskip, }\fi%
  60.           \if\Btest\present\Comma in ``\bgroup\Tomefont\Bstr\/\egroup''\def\Comma{\unskip, }\fi%
  61.            \if\otest\present\ \bgroup\ostr\egroup\def\Comma{, }\fi%
  62.             \if\Etest\present\Comma\bgroup\Estr\egroup\unskip, \ifnum\Ecnt>1eds.\else ed.\fi\def\Comma{, }\fi%
  63.              \if\Stest\present\Comma\bgroup\Sstr\egroup\def\Comma{, }\fi%
  64.               \if\Vtest\present\Comma vol. \bgroup\Volfont\Vstr\egroup\def\Comma{, }\fi%
  65.                \if\Ntest\present\Comma no. \bgroup\Volfont\Nstr\egroup\def\Comma{, }\fi%
  66.                 \if\Itest\present\Comma\bgroup\Istr\egroup\def\Comma{, }\fi%
  67.                  \if\Ctest\present\Comma\bgroup\Cstr\egroup\def\Comma{, }\fi%
  68.                   \if\Ptest\present\Comma\Pstr\def\Comma{, }\fi%
  69.                    \if\ttest\present\Comma\bgroup\Titlefont\Tstr\egroup\def\Comma{, }\fi%
  70.                     \if\btest\present\Comma in ``\bgroup\Tomefont\bstr\egroup''\def\Comma{, }\fi%
  71.                      \if\atest\present\Comma\bgroup\astr\egroup\unskip, \if\acnt\present eds.\else ed.\fi\def\Comma{, }\fi%
  72.                       \if\stest\present\Comma\bgroup\sstr\egroup\def\Comma{, }\fi%
  73.                        \if\vtest\present\Comma vol. \bgroup\Volfont\vstr\egroup\def\Comma{, }\fi%
  74.                         \if\ntest\present\Comma no. \bgroup\Volfont\nstr\egroup\def\Comma{, }\fi%
  75.                          \if\itest\present\Comma\bgroup\istr\egroup\def\Comma{, }\fi%
  76.                           \if\ctest\present\Comma\bgroup\cstr\egroup\def\Comma{, }\fi%
  77.                            \if\dtest\present\Comma\bgroup\dstr\egroup\def\Comma{, }\fi%
  78.                             \if\ptest\present\Comma\pstr\def\Comma{, }\fi%
  79.                              \if\Gtest\present{\Comma Gov't ordering no. }\bgroup\Gstr\egroup\def\Comma{, }\fi%
  80.                               \if\Mtest\present\Comma MR \#\bgroup\Mstr\egroup\def\Comma{, }\fi%
  81.                                \if\Otest\present{\Comma\bgroup\Ostr\egroup.}\else{.}\fi%
  82.                                 \vskip3ptplus1ptminus1pt}%\smallskip
  83.  
  84. \def\bookformat{\Reffont\let\uchyph=1\parindent=1.25pc\def\Comma{}%
  85.                 \sfcode`\.=1000\sfcode`\?=1000\sfcode`\!=1000\sfcode`\:=1000\sfcode`\;=1000\sfcode`\,=1000%\frenchspacing
  86.                 \par\vfil\penalty-200\vfilneg%\filbreak
  87.        \if\Atest\present\bgroup\Authfont\Astr\egroup\def\Comma{\unskip, }%
  88.            \else\if\Etest\present\bgroup\def\Eand{\Aand}\def\Eandd{\Aandd}\Authfont\Estr\egroup\unskip, \ifnum\Ecnt>1eds.\else ed.\fi\def\Comma{, }%
  89.                  \else\if\Itest\present\bgroup\Authfont\Istr\egroup\def\Comma{, }\fi\fi\fi%
  90.          \if\Dtest\present\unskip\hskip.16667em[\bgroup\bf\Dstr\ifcat a\Ftrail\Ftrail\fi\egroup]\def\Comma{, }\fi%
  91.           \if\Ttest\present\Comma\bgroup\Titlefont\Tstr\egroup\def\Comma{, }%
  92.                 \else\if\Btest\present\Comma\bgroup\Titlefont\Bstr\/\egroup\def\Comma{\unskip, }\fi\fi%
  93.             \if\otest\present\ \bgroup\ostr\egroup\def\Comma{, }\fi%
  94.              \if\etest\present\hskip.2em(\bgroup\estr\egroup)\def\Comma{\unskip, }\fi%
  95.               \if\Stest\present\Comma\bgroup\Sstr\egroup\def\Comma{, }\fi%
  96.                \if\Vtest\present\Comma vol. \bgroup\Volfont\Vstr\egroup\def\Comma{, }\fi%
  97.                 \if\Ntest\present\Comma no. \bgroup\Volfont\Nstr\egroup\def\Comma{, }\fi%
  98.                  \if\Atest\present\if\Itest\present
  99.                          \Comma\bgroup\Istr\egroup\def\Comma{\unskip, }\fi%
  100.                       \else\if\Etest\present\if\Itest\present
  101.                               \Comma\bgroup\Istr\egroup\def\Comma{\unskip, }\fi\fi\fi%
  102.                      \if\Ctest\present\Comma\bgroup\Cstr\egroup\def\Comma{, }\fi%
  103.                       \if\ttest\present\Comma\bgroup\Titlefont\tstr\egroup\def\Comma{, }%
  104.                             \else\if\btest\present\Comma\bgroup\Titlefont\bstr\egroup\def\Comma{, }\fi\fi%
  105.                          \if\stest\present\Comma\bgroup\sstr\egroup\def\Comma{, }\fi%
  106.                           \if\vtest\present\Comma vol. \bgroup\Volfont\vstr\egroup\def\Comma{, }\fi%
  107.                            \if\ntest\present\Comma no. \bgroup\Volfont\nstr\egroup\def\Comma{, }\fi%
  108.                             \if\itest\present\Comma\bgroup\istr\egroup\def\Comma{, }\fi%
  109.                              \if\ctest\present\Comma\bgroup\cstr\egroup\def\Comma{, }\fi%
  110.                               \if\dtest\present\Comma\bgroup\dstr\egroup\def\Comma{, }\fi%
  111.                                \if\Gtest\present{\Comma Gov't ordering no. }\bgroup\Gstr\egroup\def\Comma{, }\fi%
  112.                                 \if\Mtest\present\Comma MR \#\bgroup\Mstr\egroup\def\Comma{, }\fi%
  113.                                  \if\Otest\present{\Comma\bgroup\Ostr\egroup.}\else{.}\fi%
  114.                                   \vskip3ptplus1ptminus1pt}%\smallskip
  115.  
  116. \def\technicalreportformat{\Reffont\let\uchyph=1\parindent=1.25pc\def\Comma{}%
  117.                 \sfcode`\.=1000\sfcode`\?=1000\sfcode`\!=1000\sfcode`\:=1000\sfcode`\;=1000\sfcode`\,=1000%\frenchspacing
  118.                 \par\vfil\penalty-200\vfilneg%\filbreak
  119.       \if\Atest\present\bgroup\Authfont\Astr\egroup\def\Comma{\unskip, }%
  120.            \else\if\Etest\present\bgroup\def\Eand{\Aand}\def\Eandd{\Aandd}\Authfont\Estr\egroup\unskip, \ifnum\Ecnt>1eds.\else ed.\fi\def\Comma{, }%
  121.                  \else\if\Itest\present\bgroup\Authfont\Istr\egroup\def\Comma{, }\fi\fi\fi%
  122.          \if\Dtest\present\unskip\hskip.16667em[\bgroup\bf\Dstr\ifcat a\Ftrail\Ftrail\fi\egroup]\def\Comma{, }\fi%
  123.           \if\Ttest\present\Comma\bgroup\Titlefont\Tstr\egroup\def\Comma{, }\fi%
  124.            \if\Atest\present\if\Itest\present
  125.                    \Comma\bgroup\Istr\egroup\def\Comma{, }\fi%
  126.                 \else\if\Etest\present\if\Itest\present
  127.                         \Comma\bgroup\Istr\egroup\def\Comma{, }\fi\fi\fi%
  128.             \if\Rtest\present\Comma\bgroup\Rstr\egroup\def\Comma{, }\fi%
  129.              \if\Ctest\present\Comma\bgroup\Cstr\egroup\def\Comma{, }\fi%
  130.               \if\ttest\present\Comma\bgroup\Titlefont\tstr\egroup\def\Comma{, }\fi%
  131.                \if\itest\present\Comma\bgroup\istr\egroup\def\Comma{, }\fi%
  132.                 \if\rtest\present\Comma\bgroup\rstr\egroup\def\Comma{, }\fi%
  133.                  \if\ctest\present\Comma\bgroup\cstr\egroup\def\Comma{, }\fi%
  134.                   \if\dtest\present\Comma\bgroup\dstr\egroup\def\Comma{, }\fi%
  135.                    \if\Gtest\present{\Comma Gov't ordering no. }\bgroup\Gstr\egroup\def\Comma{, }\fi%
  136.                     \if\Mtest\present\Comma MR \#\bgroup\Mstr\egroup\def\Comma{, }\fi%
  137.                      \if\Otest\present{\Comma\bgroup\Ostr\egroup.}\else{.}\fi%
  138.                       \vskip3ptplus1ptminus1pt}%\smallskip
  139.  
  140. \def\otherformat{\Reffont\let\uchyph=1\parindent=1.25pc\def\Comma{}%
  141.                 \sfcode`\.=1000\sfcode`\?=1000\sfcode`\!=1000\sfcode`\:=1000\sfcode`\;=1000\sfcode`\,=1000%\frenchspacing
  142.                 \par\vfil\penalty-200\vfilneg%\filbreak
  143.       \if\Atest\present\bgroup\Authfont\Astr\egroup\def\Comma{\unskip, }%
  144.             \else\if\Etest\present\bgroup\def\Eand{\Aand}\def\Eandd{\Aandd}\Authfont\Estr\egroup\unskip, \ifnum\Ecnt>1eds.\else ed.\fi\def\Comma{, }%
  145.                  \else\if\Itest\present\bgroup\authfont\Istr\egroup\def\Comma{, }\fi\fi\fi%
  146.          \if\Dtest\present\unskip\hskip.16667em[\bgroup\bf\Dstr\ifcat a\Ftrail\Ftrail\fi\egroup]\def\Comma{, }\fi%
  147.           \if\Ttest\present\Comma\bgroup\Titlefont\Tstr\egroup\def\Comma{, }\fi%
  148.            \if\Atest\present\if\Itest\present
  149.                    \Comma\bgroup\Istr\egroup\def\Comma{, }\fi%
  150.                 \else\if\Etest\present\if\Itest\present
  151.                         \Comma\bgroup\Istr\egroup\def\Comma{, }\fi\fi\fi%
  152.                 \if\Ctest\present\Comma\bgroup\Cstr\egroup\def\Comma{, }\fi%
  153.                  \if\Gtest\present{\Comma Gov't ordering no. }\bgroup\Gstr\egroup\def\Comma{, }\fi%
  154.                   \if\Mtest\present\Comma MR \#\bgroup\Mstr\egroup\def\Comma{, }\fi%
  155.                    \if\Otest\present{\Comma\bgroup\Ostr\egroup.}\else{.}\fi%
  156.                     \vskip3ptplus1ptminus1pt}%\smallskip
  157.